home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / e / kyz_obj.lha / test / catalog / helloworld.e < prev    next >
Text File  |  1998-10-18  |  536b  |  22 lines
  1. OPT MODULE
  2.  
  3. MODULE 'class/catalog'
  4.  
  5. -> Generated automatically with FlexCat 2.0 from "helloworld.cd"
  6. EXPORT OBJECT cat_helloworld OF catalog_obj; ENDOBJECT
  7.  
  8. EXPORT CONST MSG_HELLO=0
  9. EXPORT CONST MSG_BYE=1
  10.  
  11. EXPORT PROC open(name=NIL, lang=NIL, locale=NIL) OF cat_helloworld
  12.   SUPER self.open(
  13.     IF name THEN name ELSE 'helloworld.catalog',
  14.     IF lang THEN lang ELSE 'english',
  15.     locale
  16.   )
  17.   SUPER self.def([
  18.     0, 'This is a test string for the world to see: HELLO WORLD!',
  19.     1, 'This is another test string: BYE!'
  20.   ])
  21. ENDPROC
  22.